home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TK-APPLY.ZIP / APPLY.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-04-29  |  6.0 KB  |  290 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   TSTRING002(44)
  22.     String   STRING003
  23.     Declare  Procedure PROC001(Integer INTEGER002)
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     DispFile PPEPath() + "APPLY1.PCB", 0
  28.     AnsiPos 14, 3
  29.     PROC001(25)
  30.     TSTRING002(1) = "Real Name: " + STRING001
  31.     AnsiPos 10, 4
  32.     PROC001(33)
  33.     TSTRING002(2) = "Alias: " + STRING001
  34.     AnsiPos 57, 3
  35.     PROC001(18)
  36.     TSTRING002(3) = "Interests: " + STRING001
  37.     AnsiPos 57, 4
  38.     PROC001(3)
  39.     TSTRING002(4) = "Age: " + STRING001
  40.     AnsiPos 24, 7
  41.     While (1) Do
  42.         STRING003 = ""
  43.         STRING003 = Upper(Inkey())
  44.         If (STRING003 == "Y") Break
  45.         If (STRING003 == "N") Break
  46.     EndWhile
  47.     Print STRING003
  48.     If (STRING003 == "Y") Then
  49.         AnsiPos 15, 8
  50.         PROC001(24)
  51.         TSTRING002(5) = "BBS Name: " + STRING001
  52.         AnsiPos 62, 8
  53.         PROC001(13)
  54.         TSTRING002(6) = "BBS Software: " + STRING001
  55.         AnsiPos 18, 9
  56.         PROC001(7)
  57.         TSTRING002(7) = "BBS Size: " + STRING001
  58.         AnsiPos 46, 9
  59.         PROC001(5)
  60.         TSTRING002(8) = "BBS Nodes: " + STRING001
  61.         AnsiPos 72, 9
  62.         PROC001(3)
  63.         TSTRING002(9) = "BBS Age: " + STRING001
  64.     Endif
  65.     AnsiPos 21, 13
  66.     While (1) Do
  67.         STRING003 = ""
  68.         STRING003 = Upper(Inkey())
  69.         If (STRING003 == "Y") Break
  70.         If (STRING003 == "N") Break
  71.     EndWhile
  72.     Print STRING003
  73.     If (STRING003 == "Y") Then
  74.         AnsiPos 53, 13
  75.         PROC001(21)
  76.         TSTRING002(10) = "Bes Language: " + STRING001
  77.         AnsiPos 12, 15
  78.         PROC001(2)
  79.         TSTRING002(11) = "Years Pascal: " + STRING001
  80.         AnsiPos 28, 15
  81.         PROC001(2)
  82.         TSTRING002(12) = "Years Basic: " + STRING001
  83.         AnsiPos 41, 15
  84.         PROC001(2)
  85.         TSTRING002(13) = "Years C: " + STRING001
  86.         AnsiPos 58, 15
  87.         PROC001(2)
  88.         TSTRING002(14) = "Years PPE: " + STRING001
  89.         AnsiPos 72, 15
  90.         PROC001(2)
  91.         TSTRING002(15) = "Years ASM: " + STRING001
  92.         AnsiPos 41, 16
  93.         PROC001(15)
  94.         TSTRING002(16) = "Well known Code1: " + STRING001
  95.         AnsiPos 61, 16
  96.         PROC001(14)
  97.         TSTRING002(17) = "Well Known Code1: " + STRING001
  98.         AnsiPos 14, 18
  99.         PROC001(21)
  100.         TSTRING002(18) = "What int26 means: " + STRING001
  101.         AnsiPos 16, 19
  102.         PROC001(19)
  103.         TSTRING002(19) = "Whats as B800:0000 : " + STRING001
  104.         AnsiPos 11, 20
  105.         PROC001(24)
  106.         TSTRING002(20) = "What Poke Means: " + STRING001
  107.         AnsiPos 47, 18
  108.         PROC001(28)
  109.         TSTRING002(21) = "What GETX() Means: " + STRING001
  110.         AnsiPos 47, 19
  111.         PROC001(28)
  112.         TSTRING002(22) = "What U_Sec() Means: " + STRING001
  113.         AnsiPos 51, 20
  114.         PROC001(24)
  115.         TSTRING002(23) = "What A String Array is: " + STRING001
  116.     Endif
  117.     DispFile PPEPath() + "APPLY2.PCB", 0
  118.     AnsiPos 18, 3
  119.     PROC001(22)
  120.     TSTRING002(24) = "Computer Type: " + STRING001
  121.     AnsiPos 50, 3
  122.     PROC001(4)
  123.     TSTRING002(25) = "Computer Speed: " + STRING001
  124.     AnsiPos 66, 3
  125.     PROC001(9)
  126.     TSTRING002(26) = "Computer Storage: " + STRING001
  127.     AnsiPos 16, 4
  128.     PROC001(6)
  129.     TSTRING002(27) = "Modem Speed: " + STRING001
  130.     AnsiPos 48, 4
  131.     PROC001(3)
  132.     TSTRING002(28) = "Years Computing: " + STRING001
  133.     AnsiPos 71, 4
  134.     PROC001(3)
  135.     TSTRING002(29) = "Years Modeming: " + STRING001
  136.     AnsiPos 23, 5
  137.     PROC001(13)
  138.     TSTRING002(30) = "Operating System: " + STRING001
  139.     AnsiPos 56, 5
  140.     PROC001(19)
  141.     TSTRING002(31) = "Terminal Program: " + STRING001
  142.     AnsiPos 11, 10
  143.     PROC001(24)
  144.     TSTRING002(32) = "ALF is: " + STRING001
  145.     AnsiPos 11, 11
  146.     PROC001(24)
  147.     TSTRING002(33) = "PWA is: " + STRING001
  148.     AnsiPos 11, 12
  149.     PROC001(24)
  150.     TSTRING002(34) = "ICE is: " + STRING001
  151.     AnsiPos 47, 10
  152.     PROC001(27)
  153.     TSTRING002(35) = "FTP is: " + STRING001
  154.     AnsiPos 49, 11
  155.     PROC001(25)
  156.     TSTRING002(36) = "Warez are: " + STRING001
  157.     AnsiPos 51, 12
  158.     PROC001(23)
  159.     TSTRING002(37) = "0-7 days are: " + STRING001
  160.     AnsiPos 7, 17
  161.     PROC001(27)
  162.     TSTRING002(38) = "New Warez 1: " + STRING001
  163.     AnsiPos 7, 18
  164.     PROC001(27)
  165.     TSTRING002(39) = "New Warez 2: " + STRING001
  166.     AnsiPos 7, 20
  167.     PROC001(27)
  168.     TSTRING002(40) = "New PD Ware: " + STRING001
  169.     AnsiPos 46, 17
  170.     PROC001(29)
  171.     TSTRING002(41) = "Board 1: " + STRING001
  172.     AnsiPos 46, 18
  173.     PROC001(15)
  174.     TSTRING002(42) = "Number: " + STRING001
  175.     AnsiPos 46, 19
  176.     PROC001(29)
  177.     TSTRING002(43) = "Board 2: " + STRING001
  178.     AnsiPos 46, 20
  179.     PROC001(15)
  180.     TSTRING002(44) = "Number: " + STRING001
  181.     Cls
  182.     FAppend 1, PPEPath() + "APPLY.DAT", 1, 3
  183.     FPutLn 1, "Login Name: " + U_Name()
  184.     For INTEGER001 = 1 To 44
  185.         If (TSTRING002(INTEGER001) == "") TSTRING002(INTEGER001) = "N/A"
  186.         FPutLn 1, TSTRING002(INTEGER001)
  187.     Next
  188.     FPutLn 1, "----------------- Next User ---------------------------------"
  189.     FClose 1
  190.     KbdStuff Chr(13)
  191.     End
  192.  
  193. ;------------------------------------------------------------------------------
  194.  
  195.     Procedure PROC001(Integer INTEGER002)
  196.  
  197.     Integer  INTEGER003
  198.     Integer  INTEGER004
  199.     String   STRING004
  200.  
  201.     STRING001 = ""
  202.     INTEGER003 = GetX()
  203.     Print "@X03"
  204.     While (STRING004 <> Chr(13)) Do
  205.         STRING004 = ""
  206.         While (STRING004 == "") Do
  207.             STRING004 = Inkey()
  208.             If (Len(STRING004) > 1) STRING004 = ""
  209.             If ((INTEGER004 == 0) && (STRING004 == Chr(13))) STRING004 = ""
  210.             If (INTEGER004 == INTEGER002) If (STRING004 <> Chr(8)) If (STRING004 <> Chr(13)) STRING004 = ""
  211.         EndWhile
  212.         If ((STRING004 == Chr(8)) && (INTEGER004 <> 0)) Then
  213.             Dec INTEGER004
  214.             STRING001 = Left(STRING001, Len(STRING001) - 1)
  215.         ElseIf ((STRING004 <> Chr(13)) && (STRING004 <> Chr(8))) Then
  216.             STRING001 = STRING001 + STRING004
  217.             Inc INTEGER004
  218.         Endif
  219.         If (STRING004 == Chr(8)) Then
  220.             If (GetX() > INTEGER003) Print Chr(8) + "@X08.@X03" + Chr(8)
  221.             Continue
  222.         Endif
  223.         Print STRING004
  224.     EndWhile
  225.  
  226.     EndProc
  227.  
  228.  
  229. ;------------------------------------------------------------------------------
  230. ;
  231. ; Usage report (before postprocessing)
  232. ;
  233. ; ■ Statements used :
  234. ;
  235. ;    1       End
  236. ;    1       Cls
  237. ;    21      Goto 
  238. ;    60      Let 
  239. ;    5       Print 
  240. ;    21      If 
  241. ;    2       DispFile 
  242. ;    1       FAppend 
  243. ;    1       FClose 
  244. ;    3       FPutLn 
  245. ;    1       Inc 
  246. ;    1       Dec 
  247. ;    1       KbdStuff 
  248. ;    46      AnsiPos 
  249. ;    1       EndProc
  250. ;
  251. ;
  252. ; ■ Functions used :
  253. ;
  254. ;    52      +
  255. ;    1       -
  256. ;    13      ==
  257. ;    6       <>
  258. ;    1       <
  259. ;    1       <=
  260. ;    2       >
  261. ;    2       >=
  262. ;    10      !
  263. ;    5       &&
  264. ;    1       ||
  265. ;    2       Len(
  266. ;    2       Upper()
  267. ;    1       Left()
  268. ;    11      Chr()
  269. ;    1       U_Name()
  270. ;    3       Inkey()
  271. ;    3       PPEPath()
  272. ;    2       GetX()
  273. ;
  274. ;------------------------------------------------------------------------------
  275. ;
  276. ; Analysis flags : No flag
  277. ;
  278. ;------------------------------------------------------------------------------
  279. ;
  280. ; Postprocessing report
  281. ;
  282. ;    1       For/Next
  283. ;    4       While/EndWhile
  284. ;    5       If/Then or If/Then/Else
  285. ;    0       Select Case
  286. ;
  287. ;------------------------------------------------------------------------------
  288. ;                 AEGiS Corp - Break the routines, code against the machines!
  289. ;------------------------------------------------------------------------------
  290.